home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
84xx
/
8411.d64
/
laterna magica
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
28 lines
10 REM * LATERNA-MAGICA-DATA-LOADER *
12 REM
15 REM ==============================
16 REM
20 POKE52,25:POKE56,25:CLR
30 FORI=6400TO6640:READA:POKEI,A:S=S+A:NEXT
40 IFS<>26746THENPRINT"DATA-FEHLER!":END
50 PRINT"OK!"
60 A$="LOAD"+CHR$(34)+"LATERNA MAGICA"+CHR$(34)+",8"
70 PRINTCHR$(147);A$:PRINTCHR$(19):PRINT:PRINT:PRINT:PRINT:PRINT:PRINT"RUN"
75 POKE631,19:POKE632,13:POKE633,13:POKE198,3:NEW
80 DATA173,5,144,41,240,9,15,141,5,144,198,251,162,72,189,71
90 DATA26,157,127,29,202,208,247,173,15,25,24,105,72,141,15,25
100 DATA173,16,25,105,0,141,16,25,165,251,208,14,169,255,141,15
110 DATA25,169,25,141,16,25,165,252,133,251,96,169,0,133,204,32
120 DATA245,241,240,251,76,211,25,234,72,120,165,207,240,12,165,206
130 DATA174,135,2,160,0,132,207,32,161,234,88,104,32,122,242,166
140 DATA214,224,8,48,2,162,0,164,211,192,8,48,2,160,0,32
150 DATA12,229,76,175,25,32,129,229,162,0,142,60,3,160,0,177
160 DATA209,201,160,240,9,169,1,24,109,60,3,141,60,3,192,7
170 DATA240,3,14,60,3,200,192,8,48,229,32,19,229,232,173,60
180 DATA3,32,199,25,224,8,240,6,32,12,229,76,120,25,96,32
190 DATA19,229,152,72,138,72,169,1,133,204,32,117,25,104,170,104
200 DATA168,32,12,229,76,59,25,157,7,26,157,135,29,96,104,168
210 DATA104,170,96,201,13,240,3,76,72,25,120,165,207,240,12,165
220 DATA206,174,135,2,160,0,132,207,32,161,234,88,169,1,133,204
230 DATA96